Bununla birlikte τubu≡unu her kayd²rd²≡²n²zda yeni harfler ve say²lar gelir. Visual Basic ile gelen ²zgara kontrolⁿnⁿ kulland²≡²n²zda ise yandaki ve ⁿstteki hⁿcrelerin bo■ kald²≡²n² g÷rⁿrsⁿnⁿz. Peki ExcelÆdeki gibi uτsuz bucaks²z hesap tablolar²n² nas²l yaratacaks²n²z? Bunu yapman²n yolu tabii ki yine kodlardan geτiyor...
Private Sub Form_Load()
Dim i As Integer
Grid1.Rows = 50
Grid1.Cols = 50
Grid1.Col = 0: Grid1.Row = 0
Grid1.Picture = Picture1.Picture
'Izgara kontrolⁿnⁿn en az 1 sⁿtun veya 1 sat²rdan olu■tu≡undan emin ol.
If Grid1.FixedCols < 1 Or Grid1.FixedRows < 1 Then
Stop
End If
'Kontrolⁿn ⁿstⁿne harfleri yerle■tirmeye ba■la.
For i = 0 To Grid1.Cols - 2
Grid1.Col = i + 1
Grid1.Row = 0
Grid1.Text = Chr$(i Mod 26 + Asc("A"))
'E≡er sⁿtun say²s² 26Æy² geτiyorsa τift karakter kullan.
If i + Asc("A") > Asc("Z") Then
Grid1.Text = Chr$(i \ 26 - 1 + Asc("A")) + Grid1.Text
End If
Grid1.FixedAlignment(Grid1.Col) = 2 'Merkeze getir.
Next
'numaralar² alt-sol k÷■eye yerle■tir.
For i = 1 To Grid1.Rows - 1
Grid1.Col = 0
Grid1.Row = i
Grid1.Text = Format$(i)
Next
Grid1.FixedAlignment(0) = 2 ' Merkeze getir.
End Sub
Pⁿf Noktas²: Resimde g÷rdⁿ≡ⁿnⁿz gibi yerle■ik sat²rlar²n ve sⁿtunlar²n ortas²nda ufak bir resim var.
Peki o resmi oraya nas²l yerle■tirdik? Bildi≡iniz gibi ²zgara kontrolⁿnⁿn Properties kutucu≡una
bakt²≡²n²zda b÷yle bir ÷zellik g÷rⁿlmⁿyor. Ekledi≡imiz ■u sat²r:
Grid1.Picture = Picture1.Picture
bu i■i ba■arm²■t²r. Tabii ki bu sat²r² eklemeden bir resim kutusu yaratmal² ve istedi≡iniz resmi bu kutuya ÷nceden eklemelisiniz.